home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.07.lha / AmiCAD / ARexx / EditString.AmiCAD < prev    next >
Text File  |  2000-11-09  |  2KB  |  100 lines
  1. /* Édition du (des) texte(s) associé(s) à un objet
  2. Version 1.00: 6 janvier 1999
  3. Version 1.01: 13 avril 2000 (modif SAVEALL)
  4. Version 1.02: 9 novembre 2000 (localisation anglais/français)
  5. $VER: 1.02 (© R.Florac, 9 novembre 2000) */
  6.  
  7. options results
  8.  
  9. 'LANGUAGE'
  10. if result="français.language" then fr=1
  11. else fr=0
  12.  
  13. 'FIRSTSEL'; o=result
  14. if o=0 then do
  15.     if fr=1 then 'MESSAGE("Sélectionnez l''objet à éditer"+CHR(10)+"avant d''appeler ce script")'
  16.     else 'MESSAGE("Select the object to edit"+CHR(10)+"before calling this script")'
  17.     exit
  18. end
  19.  
  20. 'TYPE('o')'; t=result
  21. select
  22.     when t=1 then do    /* composant */
  23.     'GETVAL('o')'; v=result
  24.     'GETREF('o')'; r=result
  25.     'PARTNAME('o')'; n=result
  26.     if r>0 then do
  27.         'READTEXT('r')'
  28.         at=result
  29.     end
  30.     else at=left(n,1)
  31.     if fr=1 then 'ASKTEXT("Référence 'n'?","'at'")'
  32.     else 'ASKTEXT("Reference 'n'?","'at'")'
  33.     t=result
  34.     if t="" then exit
  35.     if t~=at then do
  36.         'SAVEALL'
  37.         'SETREF('o',"'t'")'
  38.         sauver=0
  39.     end
  40.     if v>0 then do
  41.         'READTEXT('v')'
  42.         at=result
  43.     end
  44.     else at=""
  45.     if fr=1 then 'ASKTEXT("Valeur/type 't'?","'at'")'
  46.     else 'ASKTEXT("Value/type 't'?","'at'")'
  47.     t=result
  48.     if t="" then exit
  49.     if t~=at then do
  50.         if n="RÉSISTANCE" then t=t||'8B'x       /* ajout signe ohm */
  51.         if sauver~=0 then 'SAVEALL'
  52.         'SETVAL('o',"'t'")'
  53.     end
  54.     end
  55.     when t=4 then do    /* texte */
  56.     if fr=1 then 'ASKTEXT("Texte", READTEXT('o'))'
  57.     else 'ASKTEXT("Text", READTEXT('o'))'
  58.     t=result
  59.     if t~="" then do
  60.         'SETTEXT('o',"'t'")'
  61.     end
  62.     end
  63.     when t=5 then do
  64.     if fr=1 then 'ASKTEXT("Reference", READTEXT('o'))'
  65.     else 'ASKTEXT("Reference", READTEXT('o'))'
  66.     t=result
  67.     if t~="" then do
  68.         'SETTEXT('o',"'t'")'
  69.     end
  70.     end
  71.     when t=6 then do
  72.     if fr=1 then 'ASKTEXT("Valeur/Type", READTEXT('o'))'
  73.     else 'ASKTEXT("Value/Type", READTEXT('o'))'
  74.     t=result
  75.     if t~="" then do
  76.         'SETTEXT('o',"'t'")'
  77.     end
  78.     end
  79.     when t=11 then do
  80.     if fr=1 then 'ASKTEXT("Connecteur d''entrée", READTEXT('o'))'
  81.     else 'ASKTEXT("Input connector", READTEXT('o'))'
  82.     t=result
  83.     if t~="" then do
  84.         'SETTEXT('o',"'t'")'
  85.     end
  86.     end
  87.     when t=12 then do
  88.     if fr=1 then 'ASKTEXT("Connecteur de sortie", READTEXT('o'))'
  89.     else 'ASKTEXT("Output connector", READTEXT('o'))'
  90.     t=result
  91.     if t~="" then do
  92.         'SETTEXT('o',"'t'")'
  93.     end
  94.     end
  95.     otherwise do
  96.     if fr=1 then 'MESSAGE("Objet incorrect")'
  97.     else 'MESSAGE("Incorrect object")'
  98.     end
  99. end
  100.